home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / clist.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-22  |  6.3 KB  |  195 lines
  1. VERSION 2.00
  2. Begin Form frmList 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Demo av listrutor"
  6.    ClientHeight    =   2325
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   5130
  10.    ClipControls    =   0   'False
  11.    Height          =   2730
  12.    Left            =   1035
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   2325
  15.    ScaleWidth      =   5130
  16.    Top             =   1140
  17.    Width           =   5250
  18.    Begin PictureBox picLP 
  19.       AutoSize        =   -1  'True
  20.       BorderStyle     =   0  'None
  21.       Height          =   180
  22.       Left            =   3090
  23.       Picture         =   CLIST.FRX:0000
  24.       ScaleHeight     =   180
  25.       ScaleWidth      =   240
  26.       TabIndex        =   9
  27.       Top             =   2160
  28.       Visible         =   0   'False
  29.       Width           =   240
  30.    End
  31.    Begin CUACommand cmdHelp 
  32.       Caption         =   "Help"
  33.       FontBold        =   0   'False
  34.       FontItalic      =   0   'False
  35.       FontName        =   "MS Sans Serif"
  36.       FontSize        =   8.25
  37.       FontStrikethru  =   0   'False
  38.       FontUnderline   =   0   'False
  39.       Height          =   600
  40.       Left            =   3855
  41.       Picture         =   CLIST.FRX:00DA
  42.       TabIndex        =   5
  43.       Top             =   1515
  44.       Width           =   1080
  45.    End
  46.    Begin CUACommand cmdCancel 
  47.       Cancel          =   -1  'True
  48.       Caption         =   "Cancel"
  49.       FontBold        =   0   'False
  50.       FontItalic      =   0   'False
  51.       FontName        =   "MS Sans Serif"
  52.       FontSize        =   8.25
  53.       FontStrikethru  =   0   'False
  54.       FontUnderline   =   0   'False
  55.       Height          =   600
  56.       Left            =   3855
  57.       Picture         =   CLIST.FRX:02A4
  58.       TabIndex        =   4
  59.       Top             =   855
  60.       Width           =   1080
  61.    End
  62.    Begin PictureBox picIcon 
  63.       AutoSize        =   -1  'True
  64.       BorderStyle     =   0  'None
  65.       Height          =   480
  66.       Left            =   2550
  67.       Picture         =   CLIST.FRX:046E
  68.       ScaleHeight     =   480
  69.       ScaleWidth      =   480
  70.       TabIndex        =   8
  71.       Top             =   2160
  72.       Visible         =   0   'False
  73.       Width           =   480
  74.    End
  75.    Begin PictureBox picTT 
  76.       AutoSize        =   -1  'True
  77.       BorderStyle     =   0  'None
  78.       Height          =   180
  79.       Left            =   3405
  80.       Picture         =   CLIST.FRX:0770
  81.       ScaleHeight     =   180
  82.       ScaleWidth      =   240
  83.       TabIndex        =   7
  84.       Top             =   2160
  85.       Visible         =   0   'False
  86.       Width           =   240
  87.    End
  88.    Begin CUACommand cmdOK 
  89.       Caption         =   "OK"
  90.       Default         =   -1  'True
  91.       FontBold        =   0   'False
  92.       FontItalic      =   0   'False
  93.       FontName        =   "MS Sans Serif"
  94.       FontSize        =   8.25
  95.       FontStrikethru  =   0   'False
  96.       FontUnderline   =   0   'False
  97.       Height          =   600
  98.       Left            =   3855
  99.       Picture         =   CLIST.FRX:084A
  100.       TabIndex        =   3
  101.       Top             =   195
  102.       Width           =   1080
  103.    End
  104.    Begin CUAFrame ZFrame5 
  105.       BackColor       =   &H00C0C0C0&
  106.       BorderStyle     =   7  'Inset single
  107.       Caption         =   "Font"
  108.       Height          =   1275
  109.       Left            =   195
  110.       TabIndex        =   0
  111.       Top             =   855
  112.       Width           =   3375
  113.       Begin CUAList lstFont 
  114.          BorderStyle     =   3  'Inset
  115.          FontBold        =   0   'False
  116.          FontItalic      =   0   'False
  117.          FontName        =   "MS Sans Serif"
  118.          FontSize        =   8.25
  119.          FontStrikethru  =   0   'False
  120.          FontUnderline   =   0   'False
  121.          Height          =   810
  122.          Index           =   0
  123.          Left            =   135
  124.          ListColBound    =   8623
  125.          Sorted          =   -1  'True
  126.          TabIndex        =   1
  127.          Top             =   345
  128.          Width           =   2310
  129.       End
  130.       Begin CUAList lstFont 
  131.          BorderStyle     =   3  'Inset
  132.          FontBold        =   0   'False
  133.          FontItalic      =   0   'False
  134.          FontName        =   "MS Sans Serif"
  135.          FontSize        =   8.25
  136.          FontStrikethru  =   0   'False
  137.          FontUnderline   =   0   'False
  138.          Height          =   810
  139.          Index           =   1
  140.          Left            =   2565
  141.          TabIndex        =   2
  142.          Top             =   345
  143.          Width           =   675
  144.       End
  145.    End
  146.    Begin CUALabel lbl 
  147.       BackColor       =   &H00C0C0C0&
  148.       BackStyle       =   1  'Opaque
  149.       Caption         =   "List boxes can be bound to a database, may contain images - each row may have it's own. It also supports 3D effects."
  150.       FontBold        =   0   'False
  151.       FontItalic      =   0   'False
  152.       FontName        =   "MS Sans Serif"
  153.       FontSize        =   8.25
  154.       FontStrikethru  =   0   'False
  155.       FontUnderline   =   0   'False
  156.       ForeColor       =   &H00000080&
  157.       Height          =   615
  158.       Index           =   6
  159.       Left            =   210
  160.       TabIndex        =   6
  161.       Top             =   165
  162.       Width           =   3315
  163.    End
  164. Option Explicit
  165. Sub cmdCancel_Click ()
  166.    Unload Me
  167. End Sub
  168. Sub cmdOK_Click ()
  169.    Unload Me
  170. End Sub
  171. Sub Form_Load ()
  172.    Dim i As Integer
  173.    ' L
  174. gg till en ny rad i listan
  175.    lstFont(0).AddItem "Courier New"
  176.    lstFont(0).ListPicture(lstFont(0).NewIndex) = picTT
  177.    lstFont(0).AddItem "Times New Roman"
  178.    lstFont(0).ListPicture(lstFont(0).NewIndex) = picTT
  179.    lstFont(0).AddItem "Arial"
  180.    lstFont(0).ListPicture(lstFont(0).NewIndex) = picTT
  181.    lstFont(0).AddItem "Lineprinter"
  182.    lstFont(0).ListPicture(lstFont(0).NewIndex) = picLP
  183.    lstFont(0).AddItem "Bodoni"
  184.    lstFont(0).ListPicture(lstFont(0).NewIndex) = picLP
  185.    lstFont(0).AddItem "Avant Garde"
  186.    lstFont(0).ListPicture(lstFont(0).NewIndex) = picIcon
  187.    lstFont(0).AddItem "Wingdings"
  188.    lstFont(0).ListPicture(lstFont(0).NewIndex) = picIcon
  189.    ' Fyll p
  190.  med simulerade storlekar
  191.    For i = 6 To 24 Step 2
  192.       lstFont(1).AddItem Str$(i)
  193.    Next
  194. End Sub
  195.